Automatic date on cell value add | excel | VBA | excel interview question #vba #date #custom #viral

Private Sub Worksheet_Change(ByVal Target As Range)<br />If Target.Cells.Count > 1 Then Exit Sub<br />If Not Intersect(Target, Range("B:B")) Is Nothing Then<br />Target.Offset(0, 4).Value = Date<br />End If<br />End Sub